home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / H108.ZIP / JUL91.ZIP / TIP671.LSP < prev    next >
Lisp/Scheme  |  1991-08-27  |  744b  |  33 lines
  1. ;TIP671.LSP   Hidden Arc   (c)1991, Richard Bailey
  2.  
  3. (defun C:CB (/ TE AA A B D E F)
  4.   (setq TE nil)
  5.   (while (/= TE 1)
  6.     (progn
  7.       (setq AA (entsel
  8.         "\nSelect arc/circle: "))
  9.       (setq ENTYP (cdr (assoc 0 (entget
  10.         (car AA)))))
  11.        (if (= ENTYP "CIRCLE")
  12.          (setq TE 1)
  13.        )
  14.        (if (= ENTYP "ARC")
  15.         (setq TE 1)
  16.       )
  17.       (if (/= TE 1)
  18.         (prompt "\nNot a circle or arc.")
  19.       )
  20.     )
  21.   )
  22.   (setq A (getpoint
  23.     "\nFirst break point: "))
  24.   (setq B (getpoint
  25.     "\nSecond break point: "))
  26.   (command "BREAK" AA "F" A B)
  27.   (setq D (cdr (assoc 10 (entget (car AA)
  28.     ))))
  29.   (setq E (osnap A "ENDP"))
  30.   (setq F (osnap B "ENDP"))
  31.   (command "ARC" "C" D E F)
  32. )
  33.